From d7329abbcbc01da4f9c57206ec1494699cd7fa27 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 27 Feb 2008 16:20:33 +0000 Subject: [PATCH] (uniquify-buffer-base-name): If the base name is an empty string, return nil to allow the caller to default to the buffer name. --- lisp/uniquify.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/uniquify.el b/lisp/uniquify.el index b2167f48656..c07dd57af4e 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -194,7 +194,8 @@ It actually holds the list of `uniquify-item's corresponding to the conflict.") "Return the base name of the current buffer. Return nil if the buffer is not managed by uniquify." (and uniquify-managed - (uniquify-item-base (car uniquify-managed)))) + (let ((base (uniquify-item-base (car uniquify-managed)))) + (if (string= base "") nil base)))) ;;; Main entry point. -- 2.30.2